home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / mask12.arc / GETVIDMO.INC < prev    next >
Encoding:
Text File  |  1988-01-07  |  222 b   |  10 lines
  1. ' ******  CALL GETVIDMODE(VIDMOD%) ******
  2. '   RETURNS video mode
  3. '   EGA = 2 :  CGA = 2 : Monochrome or Hurcules = 7 : Compaq = 3
  4. SUB GETVIDMODE(Video.Mode%) STATIC
  5.     def seg=0
  6.     Video.Mode% = PEEK(&H449)
  7. END SUB
  8.  
  9.  
  10.